setdisplay(320,240,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
  locate(1,1):prints("aty="+str$(aty))
  locate(15,3):prints("aty="+str$(aty))
  locate(5,8):prints("aty="+str$(aty))
  locate(7,5):prints("aty="+str$(aty))
waitkey